home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00046_StringTools.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  1.4 KB  |  67 lines
  1. -- 
  2. -- stringTools
  3. -- 
  4.  
  5. property ancestor
  6.  
  7. on new me
  8.   -- set constants:
  9.   
  10.   -- initialize the ancestor:
  11.   set ancestor = new (script "MemoryTools")
  12.   
  13.   return me
  14. end
  15.  
  16.  
  17. -- clear out all of my stuff
  18.  
  19. on destruct me
  20.   -- destruct my chain
  21.   if objectP (ancestor) then destruct (ancestor)
  22.   set ancestor = 0
  23. end
  24.  
  25.  
  26. -- convert a string to a upper case string
  27.  
  28. on stringToUpper me, theString
  29.   set maxChars = the number of chars of theString
  30.   
  31.   repeat with x = 1 to maxChars
  32.     -- get the ASCII value for the character
  33.     set theCharNum = charToNum(char x of theString)
  34.     
  35.     if theCharNum > 96 and theCharnum < 123 then
  36.       -- we have a lower case character
  37.       set newChar = numToChar(theCharNum - 32)
  38.       
  39.       -- insert it into the return string
  40.       put newChar into char x of theString
  41.     end if
  42.   end repeat
  43.   
  44.   return theString
  45. end
  46.  
  47.  
  48. -- convert a string to a lower case string
  49.  
  50. on stringToLower me, theString
  51.   set maxChars = the number of chars of theString
  52.   
  53.   repeat with x = 1 to maxChars
  54.     -- get the ASCII value for the character
  55.     set theCharNum = charToNum(char x of theString)
  56.     
  57.     if theCharNum > 65 and theCharnum < 91 then
  58.       -- we have an upper case character
  59.       set newChar = numToChar(theCharNum + 32)
  60.       
  61.       -- insert it into the return string
  62.       put newChar into char x of theString
  63.     end if
  64.   end repeat
  65.   
  66.   return theString
  67. end